home *** CD-ROM | disk | FTP | other *** search
- /* Main File Unbekannt*/
-
- /* Erstellt mit GadEd V2.0 */
- /* Geschrieben von Michael Neumann und Thomas Patschinski */
-
- #include <intuition/intuition.h>
- #include <intuition/screens.h>
- #include <intuition/gadgetclass.h>
- #include <exec/lists.h>
- #include <exec/memory.h>
- #include <exec/nodes.h>
- #include <graphics/rastport.h>
- #include <graphics/text.h>
- #include <libraries/gadtools.h>
- #include <utility/tagitem.h>
- #include <string.h>
- #include <proto/exec.h>
- #include <proto/intuition.h>
- #include <proto/gadtools.h>
- #include <proto/utility.h>
- #include <proto/graphics.h>
- #include <proto/diskfont.h>
-
- #define waNewLookMenu TAG_USER+0x30+99
- #define gtNewLookMenu TAG_USER+0x80000+67
- #define tagCheckScaled TAG_USER+0x80000+68
- #define tagMxScaled TAG_USER+0x80000+69
- #define tagNumColors TAG_USER+0x80000+70
- #define tagTitlePlace TAG_USER+0x80000+71
- #define tagFrontPen TAG_USER+0x80000+72
- #define tagBackPen TAG_USER+0x80000+73
- #define tagJustification TAG_USER+0x80000+74
- #define tagFormat TAG_USER+0x80000+75
- #define tagMaxNumberLen TAG_USER+0x80000+76
- #define tagFrameType TAG_USER+0x80000+77
- #define tagMaxPixelLen TAG_USER+0x80000+80
- #define tagClipped TAG_USER+0x80000+85
-
- struct List Liste[2];
- struct List ListViewList00[2];
- struct Menu *Men;
- struct Menu *Menu00;
- static struct Gadget *gad, *congad[2];
- static struct Window *W[2];
- static struct Screen *Screen;
- static struct TextFont *SFont;
- static struct TextFont *WFont[2];
- struct Gadget *G0[28];
- struct Gadget *GPtrs00[28];
- static BOOL OwnScreen;
- static void *Vi;
- static WORD Pens=-1;
- static int OffsetY;
- static int FontXSize, FontYSize;
- static int WinLeft, WinTop, WinWidth, WinHeight;
- static int TagCount;
-
- static struct TextAttr SAttr = {(STRPTR)"topaz-classic.font",8,FS_NORMAL,0};
-
- static Tag STags[] = {
- SA_Top,0,
- SA_Pens,(ULONG)&Pens,
- SA_Width,724,
- SA_Height,564,
- SA_Depth,2,
- SA_DisplayID,0x00029004,
- SA_Title,(ULONG)"Gadget Test Screen",
- SA_Font,(ULONG)&SAttr,
- SA_FullPalette,TRUE,
- SA_ShowTitle,TRUE,
- SA_Overscan,OSCAN_TEXT, TAG_DONE,NULL};
-
- /* Definitionen für Fenster Proc00 */
-
- static struct NewGadget NewG0[] = {
- 115,71,67,12,(UBYTE *)"Tel_. Nummer:",&SAttr,0,PLACETEXT_LEFT,NULL,NULL,
- 115,83,67,12,(UBYTE *)"_Haus Nummer:",&SAttr,1,PLACETEXT_LEFT|NG_HIGHLABEL,NULL,NULL,
- 115,212,234,12,(UBYTE *)"Copyright b_y",&SAttr,2,PLACETEXT_LEFT|NG_HIGHLABEL,NULL,NULL,
- 115,224,234,12,(UBYTE *)"Copyright b_y",&SAttr,3,PLACETEXT_LEFT,NULL,NULL,
- 15,18,92,21,(UBYTE *)"Button",&SAttr,4,PLACETEXT_IN,NULL,(APTR)1,
- 15,39,92,21,(UBYTE *)"_Ok",&SAttr,5,PLACETEXT_IN,NULL,NULL,
- 107,18,92,21,(UBYTE *)"_Under",&SAttr,6,PLACETEXT_IN,NULL,(APTR)2,
- 107,39,92,21,(UBYTE *)"Special !",&SAttr,7,PLACETEXT_IN,NULL,NULL,
- 217,17,26,11,(UBYTE *)"Checkbo_x",&SAttr,8,PLACETEXT_RIGHT|NG_HIGHLABEL,NULL,NULL,
- 217,28,26,11,(UBYTE *)"_Gfx",&SAttr,9,PLACETEXT_RIGHT,NULL,NULL,
- 217,39,26,11,(UBYTE *)"Text _Modus",&SAttr,10,PLACETEXT_RIGHT,NULL,NULL,
- 217,50,26,11,(UBYTE *)"Nicht umschalten",&SAttr,11,PLACETEXT_RIGHT,NULL,NULL,
- 393,30,227,49,(UBYTE *)"Info Box",&SAttr,12,PLACETEXT_ABOVE|NG_HIGHLABEL,NULL,NULL,
- 393,90,227,71,(UBYTE *)"Screen Mode:",&SAttr,13,PLACETEXT_ABOVE,NULL,NULL,
- 248,72,16,8,(UBYTE *)"3.x",&SAttr,14,PLACETEXT_RIGHT|NG_HIGHLABEL,NULL,NULL,
- 230,72,16,8,(UBYTE *)"",&SAttr,15,PLACETEXT_LEFT,NULL,NULL,
- 89,104,87,10,(UBYTE *)"Fast Ram",&SAttr,16,PLACETEXT_LEFT|NG_HIGHLABEL,NULL,NULL,
- 89,114,87,10,(UBYTE *)"Chip Ram",&SAttr,17,PLACETEXT_LEFT|NG_HIGHLABEL,NULL,NULL,
- 61,135,122,12,(UBYTE *)"Mo_dus",&SAttr,18,PLACETEXT_LEFT,NULL,NULL,
- 61,147,122,12,(UBYTE *)"Mo_dus",&SAttr,19,PLACETEXT_LEFT|NG_HIGHLABEL,NULL,NULL,
- 83,167,160,19,(UBYTE *)"Farb_wahl",&SAttr,20,PLACETEXT_LEFT,NULL,NULL,
- 83,186,160,19,(UBYTE *)"Farb_wahl",&SAttr,21,PLACETEXT_LEFT|NG_HIGHLABEL,NULL,NULL,
- 332,72,24,73,(UBYTE *)"Q",&SAttr,22,PLACETEXT_BELOW|NG_HIGHLABEL,NULL,NULL,
- 356,72,24,73,(UBYTE *)"Q",&SAttr,23,PLACETEXT_BELOW,NULL,NULL,
- 311,170,281,17,(UBYTE *)"Anfang",&SAttr,24,PLACETEXT_LEFT|NG_HIGHLABEL,NULL,NULL,
- 311,187,281,17,(UBYTE *)"Ende",&SAttr,25,PLACETEXT_LEFT,NULL,NULL,
- 441,213,184,11,(UBYTE *)"Fix Text",&SAttr,26,PLACETEXT_LEFT|NG_HIGHLABEL,NULL,NULL,
- 441,224,184,11,(UBYTE *)"Fix Text",&SAttr,27,PLACETEXT_LEFT,NULL,NULL
- };
-
- static ULONG Kinds0[] = {
- INTEGER_KIND,
- INTEGER_KIND,
- STRING_KIND,
- STRING_KIND,
- BUTTON_KIND,
- BUTTON_KIND,
- BUTTON_KIND,
- BUTTON_KIND,
- CHECKBOX_KIND,
- CHECKBOX_KIND,
- CHECKBOX_KIND,
- CHECKBOX_KIND,
- LISTVIEW_KIND,
- LISTVIEW_KIND,
- MX_KIND,
- MX_KIND,
- NUMBER_KIND,
- NUMBER_KIND,
- CYCLE_KIND,
- CYCLE_KIND,
- PALETTE_KIND,
- PALETTE_KIND,
- SCROLLER_KIND,
- SCROLLER_KIND,
- SLIDER_KIND,
- SLIDER_KIND,
- TEXT_KIND,
- TEXT_KIND
- };
-
- static char *MxText0_0[] = {
- (UBYTE *)"_Domino",
- (UBYTE *)"_Pal",
- (UBYTE *)"_Ntsc",
- (UBYTE *)"N_ichts",
- NULL
- };
-
- static char *MxText0_1[] = {
- (UBYTE *)"1",
- (UBYTE *)"2",
- (UBYTE *)"4",
- (UBYTE *)"8",
- (UBYTE *)"16",
- (UBYTE *)"32",
- (UBYTE *)"64",
- (UBYTE *)"128",
- (UBYTE *)"256",
- NULL
- };
-
- static char *CycleText0_0[] = {
- (UBYTE *)"Pause",
- (UBYTE *)"Step",
- (UBYTE *)"Run",
- NULL
- };
-
- static char *CycleText0_1[] = {
- (UBYTE *)"Pause",
- (UBYTE *)"Step",
- (UBYTE *)"Run",
- NULL
- };
-
- static Tag Tags0[] = {
- GT_Underscore,'_',
- GTIN_Number,4711,
- STRINGA_ReplaceMode,TRUE,
- STRINGA_ExitHelp,TRUE,
- GA_Immediate,TRUE,
- TAG_DONE,
- GT_Underscore,'_',
- GTIN_Number,1,
- GTIN_MaxChars,7,
- STRINGA_Justification,GACT_STRINGCENTER,
- GA_TabCycle,FALSE,
- TAG_DONE,
- GT_Underscore,'_',
- GTST_String,(ULONG)"Thomas Patschinski",
- STRINGA_ReplaceMode,TRUE,
- STRINGA_Justification,GACT_STRINGCENTER,
- GTST_MaxChars,79,
- GA_Immediate,TRUE,
- GA_TabCycle,FALSE,
- STRINGA_ExitHelp,TRUE,
- TAG_DONE,
- GT_Underscore,'_',
- GTST_String,(ULONG)"Michael Neumann",
- GTST_MaxChars,255,
- GA_TabCycle,FALSE,
- STRINGA_ExitHelp,TRUE,
- TAG_DONE,
- GA_Immediate,TRUE,
- TAG_DONE,
- GT_Underscore,'_',
- TAG_DONE,
- GT_Underscore,'_',
- TAG_DONE,
- GA_Disabled,TRUE,
- TAG_DONE,
- GT_Underscore,'_',
- GTCB_Checked,TRUE,
- tagCheckScaled,TRUE,
- TAG_DONE,
- GT_Underscore,'_',
- TAG_DONE,
- GT_Underscore,'_',
- GTCB_Checked,TRUE,
- TAG_DONE,
- GA_Disabled,TRUE,
- TAG_DONE,
- GTLV_ReadOnly,TRUE,
- GTLV_Labels,(ULONG)&Liste[0],
- LAYOUTA_Spacing,2,
- TAG_DONE,
- GTLV_ScrollWidth,24,
- GTLV_ShowSelected,NULL,
- GTLV_Labels,(ULONG)&Liste[1],
- TAG_DONE,
- GT_Underscore,'_',
- GTMX_Spacing,2,
- GTMX_Labels,(ULONG)&MxText0_0,
- GA_Disabled,TRUE,
- tagTitlePlace,PLACETEXT_BELOW,
- TAG_DONE,
- GTMX_Spacing,2,
- GTMX_Labels,(ULONG)&MxText0_1,
- tagMxScaled,TRUE,
- TAG_DONE,
- GTNM_Border,TRUE,
- GTNM_Number,11893096,
- tagClipped,FALSE,
- TAG_DONE,
- GTNM_Border,TRUE,
- GTNM_Number,1904760,
- tagFrontPen,2,
- tagJustification,2, tagMaxNumberLen,9,
- TAG_DONE,
- GT_Underscore,'_',
- GTCY_Labels,(ULONG)&CycleText0_0,
- TAG_DONE,
- GT_Underscore,'_',
- GA_Disabled,TRUE,
- GTCY_Labels,(ULONG)&CycleText0_1,
- TAG_DONE,
- GT_Underscore,'_',
- GA_Disabled,TRUE,
- GTPA_Depth,2,
- GTPA_IndicatorHeight,0,
- GTPA_IndicatorWidth,0,
- TAG_DONE,
- GT_Underscore,'_',
- GTPA_Depth,2,
- GTPA_IndicatorHeight,0,
- GTPA_IndicatorWidth,0,
- TAG_DONE,
- GA_Disabled,TRUE,
- GTSC_Total,10,
- GTSC_Visible,3,
- GTSC_Arrows,16,
- PGA_Freedom,2,
- GA_RelVerify,TRUE,
- GA_Immediate,TRUE,
- TAG_DONE,
- GTSC_Top,9,
- GTSC_Total,11,
- GTSC_Arrows,16,
- PGA_Freedom,2,
- TAG_DONE,
- GTSL_Level,3,
- GTSL_MaxLevelLen,4,
- GTSL_LevelFormat,(ULONG)"%ld ",
- GTSL_LevelPlace,PLACETEXT_RIGHT,
- tagMaxPixelLen,5,
- tagJustification,1,
- TAG_DONE,
- GA_Disabled,TRUE,
- GTSL_Level,15,
- GTSL_MaxLevelLen,3,
- GTSL_LevelFormat,(ULONG)"%ld ",
- GTSL_LevelPlace,PLACETEXT_RIGHT,
- tagJustification,2,
- TAG_DONE,
- GTTX_Border,TRUE,
- GTTX_Text,(ULONG)"GadEd Version 1.10",
- GTTX_CopyText,TRUE,
- tagFrontPen,2,
- tagBackPen,1,
- TAG_DONE,
- GTTX_Border,TRUE,
- GTTX_Text,(ULONG)"<Empty>",
- tagJustification,2, tagClipped,FALSE,
- TAG_DONE
- };
-
- static struct IntuiText IText0[] = {
- 3,2,JAM2,267,126,&SAttr,(UBYTE *)"Das ist",NULL,
- 1,0,JAM2|INVERSVID,283,144,&SAttr,(UBYTE *)"Intui",NULL,
- 1,3,JAM2,291,153,&SAttr,(UBYTE *)"Text",NULL,
- 1,2,JAM2,299,135,&SAttr,(UBYTE *)"ein",NULL
- };
-
- static struct NewMenu newM0[] = {
- NM_TITLE,(UBYTE *)"Projekt",NULL,0,0,NULL,
- NM_ITEM,(UBYTE *)"About",(UBYTE *)"A",0,0,NULL,
- NM_ITEM,NM_BARLABEL,NULL,0,0,NULL,
- NM_ITEM,(UBYTE *)"Load",(UBYTE *)"L",0,0,NULL,
- NM_ITEM,(UBYTE *)"Save",(UBYTE *)"S",0,0,NULL,
- NM_ITEM,NM_BARLABEL,NULL,0,0,NULL,
- NM_ITEM,(UBYTE *)"Quit",(UBYTE *)"Q",0,0,NULL,
- NM_TITLE,(UBYTE *)"Buffer",NULL,0,0,NULL,
- NM_ITEM,(UBYTE *)"Cut",(UBYTE *)"C",0,0,NULL,
- NM_ITEM,(UBYTE *)"Paste",(UBYTE *)"P",0,0,NULL,
- NM_ITEM,(UBYTE *)"Copy",(UBYTE *)"O",0,0,NULL,
- NM_TITLE,(UBYTE *)"Settings",NULL,0,0,NULL,
- NM_ITEM,(UBYTE *)"Special",NULL,0,0,NULL,
- NM_SUB,(UBYTE *)"Betatester Info",NULL,MENUTOGGLE|CHECKIT|ITEMENABLED,0,NULL,
- NM_SUB,NM_BARLABEL,NULL,0,0,NULL,
- NM_SUB,(UBYTE *)"Extendet Features",NULL,MENUTOGGLE|CHECKIT,0,NULL,
- NM_ITEM,(UBYTE *)"Save Icons",NULL,MENUTOGGLE|CHECKIT|CHECKED,0,NULL,
- NM_ITEM,(UBYTE *)"Use ENV:",NULL,MENUTOGGLE|CHECKIT|CHECKED,0,NULL,
- NM_ITEM,(UBYTE *)"Fast Ram",NULL,MENUTOGGLE|CHECKIT,0,NULL,
- NM_ITEM,NM_BARLABEL,NULL,0,0,NULL,
- NM_ITEM,(UBYTE *)"Asl Requster",NULL,CHECKIT|CHECKED,0,NULL,
- NM_ITEM,(UBYTE *)"OS 3.x",NULL,CHECKIT,0,NULL,
- NM_TITLE,(UBYTE *)"Extendet Menu",NULL,NM_MENUDISABLED,0,NULL,
- NM_ITEM,(UBYTE *)"New 1",NULL,0,0,NULL,
- NM_ITEM,(UBYTE *)"New 2",NULL,0,0,NULL,
- NM_ITEM,NM_BARLABEL,NULL,0,0,NULL,
- NM_ITEM,(UBYTE *)"New 3",NULL,0,0,NULL,
- NM_SUB,(UBYTE *)"New 3_1",NULL,0,0,NULL,
- NM_SUB,(UBYTE *)"New 3_2",NULL,0,0,NULL,
- NM_END,NULL,NULL,0,0,NULL};
-
- static WORD Bevel0[] = {
- 7,101,179,27,
- 329,68,55,95,
- 7,68,179,30,
- 7,132,179,31,
- 364,210,264,29,
- 213,13,171,53,
- 7,210,345,29,
- 7,165,240,43,
- 7,13,203,53,
- 188,68,139,95,
- 250,165,378,43,
- 387,13,241,150
- };
-
- static Tag BevelTags0[] = {
- GT_VisualInfo,NULL,
- TAG_DONE,
- GT_VisualInfo,NULL,
- TAG_DONE,
- GT_VisualInfo,NULL,
- TAG_DONE,
- GT_VisualInfo,NULL,
- TAG_DONE,
- GT_VisualInfo,NULL,
- TAG_DONE,
- GT_VisualInfo,NULL,
- TAG_DONE,
- GT_VisualInfo,NULL,
- TAG_DONE,
- GT_VisualInfo,NULL,
- TAG_DONE,
- GT_VisualInfo,NULL,
- TAG_DONE,
- GT_VisualInfo,NULL,
- TAG_DONE,
- GT_VisualInfo,NULL,
- TAG_DONE,
- GT_VisualInfo,NULL,
- TAG_DONE
- };
-
- static Tag WTags0[] = {
- WA_CustomScreen,NULL,
- WA_Gadgets,NULL,
- WA_Left,0,
- WA_Top,0,
- WA_Width,0,
- WA_Height,0,
- WA_MinWidth,633,
- WA_MinHeight,243,
- WA_MaxWidth,633,
- WA_MaxHeight,243,
- WA_Title,(ULONG)"Gadget Test Fenster1",
- WA_IDCMP,BUTTONIDCMP|CHECKBOXIDCMP|INTEGERIDCMP|LISTVIEWIDCMP|MXIDCMP|NUMBERIDCMP|CYCLEIDCMP|PALETTEIDCMP|SCROLLERIDCMP|SLIDERIDCMP|STRINGIDCMP|TEXTIDCMP|IDCMP_NEWSIZE|IDCMP_CLOSEWINDOW,
- WA_Flags,WFLG_DRAGBAR|WFLG_DEPTHGADGET|WFLG_CLOSEGADGET|WFLG_ACTIVATE,
- waNewLookMenu,TRUE,
- TAG_DONE,NULL};
-
- /* Definitionen für Fenster Proc01 */
-
- static struct NewGadget NewG1[] = {
- 115,71,67,12,(UBYTE *)"Tel_. Nummer:",&SAttr,0,PLACETEXT_LEFT,NULL,NULL,
- 115,83,67,12,(UBYTE *)"_Haus Nummer:",&SAttr,1,PLACETEXT_LEFT|NG_HIGHLABEL,NULL,NULL,
- 115,212,234,12,(UBYTE *)"Copyright b_y",&SAttr,2,PLACETEXT_LEFT|NG_HIGHLABEL,NULL,NULL,
- 115,224,234,12,(UBYTE *)"Copyright b_y",&SAttr,3,PLACETEXT_LEFT,NULL,NULL,
- 15,18,92,21,(UBYTE *)"Button",&SAttr,4,PLACETEXT_IN,NULL,(APTR)1,
- 15,39,92,21,(UBYTE *)"_Ok",&SAttr,5,PLACETEXT_IN,NULL,NULL,
- 107,18,92,21,(UBYTE *)"_Under",&SAttr,6,PLACETEXT_IN,NULL,(APTR)2,
- 107,39,92,21,(UBYTE *)"Special !",&SAttr,7,PLACETEXT_IN,NULL,NULL,
- 217,17,26,11,(UBYTE *)"Checkbo_x",&SAttr,8,PLACETEXT_RIGHT|NG_HIGHLABEL,NULL,NULL,
- 217,28,26,11,(UBYTE *)"_Gfx",&SAttr,9,PLACETEXT_RIGHT,NULL,NULL,
- 217,39,26,11,(UBYTE *)"Text _Modus",&SAttr,10,PLACETEXT_RIGHT,NULL,NULL,
- 217,50,26,11,(UBYTE *)"Nicht umschalten",&SAttr,11,PLACETEXT_RIGHT,NULL,NULL,
- 393,30,227,49,(UBYTE *)"Info Box",&SAttr,12,PLACETEXT_ABOVE|NG_HIGHLABEL,NULL,NULL,
- 393,90,227,71,(UBYTE *)"Screen Mode:",&SAttr,13,PLACETEXT_ABOVE,NULL,NULL,
- 248,72,16,8,(UBYTE *)"3.x",&SAttr,14,PLACETEXT_RIGHT|NG_HIGHLABEL,NULL,NULL,
- 230,72,16,8,(UBYTE *)"",&SAttr,15,PLACETEXT_LEFT,NULL,NULL,
- 89,104,87,10,(UBYTE *)"Fast Ram",&SAttr,16,PLACETEXT_LEFT|NG_HIGHLABEL,NULL,NULL,
- 89,114,87,10,(UBYTE *)"Chip Ram",&SAttr,17,PLACETEXT_LEFT|NG_HIGHLABEL,NULL,NULL,
- 61,135,122,12,(UBYTE *)"Mo_dus",&SAttr,18,PLACETEXT_LEFT,NULL,NULL,
- 61,147,122,12,(UBYTE *)"Mo_dus",&SAttr,19,PLACETEXT_LEFT|NG_HIGHLABEL,NULL,NULL,
- 83,167,160,19,(UBYTE *)"Farb_wahl",&SAttr,20,PLACETEXT_LEFT,NULL,NULL,
- 83,186,160,19,(UBYTE *)"Farb_wahl",&SAttr,21,PLACETEXT_LEFT|NG_HIGHLABEL,NULL,NULL,
- 332,72,24,73,(UBYTE *)"Q",&SAttr,22,PLACETEXT_BELOW|NG_HIGHLABEL,NULL,NULL,
- 356,72,24,73,(UBYTE *)"Q",&SAttr,23,PLACETEXT_BELOW,NULL,NULL,
- 311,170,281,17,(UBYTE *)"Anfang",&SAttr,24,PLACETEXT_LEFT|NG_HIGHLABEL,NULL,NULL,
- 311,187,281,17,(UBYTE *)"Ende",&SAttr,25,PLACETEXT_LEFT,NULL,NULL,
- 441,213,184,11,(UBYTE *)"Fix Text",&SAttr,26,PLACETEXT_LEFT|NG_HIGHLABEL,NULL,NULL,
- 441,224,184,11,(UBYTE *)"Fix Text",&SAttr,27,PLACETEXT_LEFT,NULL,NULL
- };
-
- static ULONG Kinds1[] = {
- INTEGER_KIND,
- INTEGER_KIND,
- STRING_KIND,
- STRING_KIND,
- BUTTON_KIND,
- BUTTON_KIND,
- BUTTON_KIND,
- BUTTON_KIND,
- CHECKBOX_KIND,
- CHECKBOX_KIND,
- CHECKBOX_KIND,
- CHECKBOX_KIND,
- LISTVIEW_KIND,
- LISTVIEW_KIND,
- MX_KIND,
- MX_KIND,
- NUMBER_KIND,
- NUMBER_KIND,
- CYCLE_KIND,
- CYCLE_KIND,
- PALETTE_KIND,
- PALETTE_KIND,
- SCROLLER_KIND,
- SCROLLER_KIND,
- SLIDER_KIND,
- SLIDER_KIND,
- TEXT_KIND,
- TEXT_KIND
- };
-
- static char *MxText1_0[] = {
- (UBYTE *)"_Domino",
- (UBYTE *)"_Pal",
- (UBYTE *)"_Ntsc",
- (UBYTE *)"N_ichts",
- NULL
- };
-
- static char *MxText1_1[] = {
- (UBYTE *)"1",
- (UBYTE *)"2",
- (UBYTE *)"4",
- (UBYTE *)"8",
- (UBYTE *)"16",
- (UBYTE *)"32",
- (UBYTE *)"64",
- (UBYTE *)"128",
- (UBYTE *)"256",
- NULL
- };
-
- static char *CycleText1_0[] = {
- (UBYTE *)"Pause",
- (UBYTE *)"Step",
- (UBYTE *)"Run",
- NULL
- };
-
- static char *CycleText1_1[] = {
- (UBYTE *)"Pause",
- (UBYTE *)"Step",
- (UBYTE *)"Run",
- NULL
- };
-
- static Tag Tags1[] = {
- GT_Underscore,'_',
- GTIN_Number,4711,
- STRINGA_ReplaceMode,TRUE,
- STRINGA_ExitHelp,TRUE,
- GA_Immediate,TRUE,
- TAG_DONE,
- GT_Underscore,'_',
- GTIN_Number,1,
- GTIN_MaxChars,7,
- STRINGA_Justification,GACT_STRINGCENTER,
- GA_TabCycle,FALSE,
- TAG_DONE,
- GT_Underscore,'_',
- GTST_String,(ULONG)"Thomas Patschinski",
- STRINGA_ReplaceMode,TRUE,
- STRINGA_Justification,GACT_STRINGCENTER,
- GTST_MaxChars,79,
- GA_Immediate,TRUE,
- GA_TabCycle,FALSE,
- STRINGA_ExitHelp,TRUE,
- TAG_DONE,
- GT_Underscore,'_',
- GTST_String,(ULONG)"Michael Neumann",
- GTST_MaxChars,255,
- GA_TabCycle,FALSE,
- STRINGA_ExitHelp,TRUE,
- TAG_DONE,
- GA_Immediate,TRUE,
- TAG_DONE,
- GT_Underscore,'_',
- TAG_DONE,
- GT_Underscore,'_',
- TAG_DONE,
- GA_Disabled,TRUE,
- TAG_DONE,
- GT_Underscore,'_',
- GTCB_Checked,TRUE,
- tagCheckScaled,TRUE,
- TAG_DONE,
- GT_Underscore,'_',
- TAG_DONE,
- GT_Underscore,'_',
- GTCB_Checked,TRUE,
- TAG_DONE,
- GA_Disabled,TRUE,
- TAG_DONE,
- GTLV_ReadOnly,TRUE,
- GTLV_Labels,(ULONG)&ListViewList00[0],
- LAYOUTA_Spacing,2,
- TAG_DONE,
- GTLV_ScrollWidth,24,
- GTLV_ShowSelected,NULL,
- GTLV_Labels,(ULONG)&ListViewList00[1],
- TAG_DONE,
- GT_Underscore,'_',
- GTMX_Spacing,2,
- GTMX_Labels,(ULONG)&MxText1_0,
- GA_Disabled,TRUE,
- tagTitlePlace,PLACETEXT_BELOW,
- TAG_DONE,
- GTMX_Spacing,2,
- GTMX_Labels,(ULONG)&MxText1_1,
- tagMxScaled,TRUE,
- TAG_DONE,
- GTNM_Border,TRUE,
- GTNM_Number,11893096,
- tagClipped,FALSE,
- TAG_DONE,
- GTNM_Border,TRUE,
- GTNM_Number,1904760,
- tagFrontPen,2,
- tagJustification,2, tagMaxNumberLen,9,
- TAG_DONE,
- GT_Underscore,'_',
- GTCY_Labels,(ULONG)&CycleText1_0,
- TAG_DONE,
- GT_Underscore,'_',
- GA_Disabled,TRUE,
- GTCY_Labels,(ULONG)&CycleText1_1,
- TAG_DONE,
- GT_Underscore,'_',
- GA_Disabled,TRUE,
- GTPA_Depth,2,
- GTPA_IndicatorHeight,0,
- GTPA_IndicatorWidth,0,
- TAG_DONE,
- GT_Underscore,'_',
- GTPA_Depth,2,
- GTPA_IndicatorHeight,0,
- GTPA_IndicatorWidth,0,
- TAG_DONE,
- GA_Disabled,TRUE,
- GTSC_Total,10,
- GTSC_Visible,3,
- GTSC_Arrows,16,
- PGA_Freedom,2,
- GA_RelVerify,TRUE,
- GA_Immediate,TRUE,
- TAG_DONE,
- GTSC_Top,9,
- GTSC_Total,11,
- GTSC_Arrows,16,
- PGA_Freedom,2,
- TAG_DONE,
- GTSL_Level,3,
- GTSL_MaxLevelLen,4,
- GTSL_LevelFormat,(ULONG)"%ld ",
- GTSL_LevelPlace,PLACETEXT_RIGHT,
- tagMaxPixelLen,5,
- tagJustification,1,
- TAG_DONE,
- GA_Disabled,TRUE,
- GTSL_Level,15,
- GTSL_MaxLevelLen,3,
- GTSL_LevelFormat,(ULONG)"%ld ",
- GTSL_LevelPlace,PLACETEXT_RIGHT,
- tagJustification,2,
- TAG_DONE,
- GTTX_Border,TRUE,
- GTTX_Text,(ULONG)"GadEd Version 1.10",
- GTTX_CopyText,TRUE,
- tagFrontPen,2,
- tagBackPen,1,
- TAG_DONE,
- GTTX_Border,TRUE,
- GTTX_Text,(ULONG)"<Empty>",
- tagJustification,2, tagClipped,FALSE,
- TAG_DONE
- };
-
- static struct IntuiText IText1[] = {
- 3,2,JAM2,267,126,&SAttr,(UBYTE *)"Das ist",NULL,
- 1,0,JAM2|INVERSVID,283,144,&SAttr,(UBYTE *)"Intui",NULL,
- 1,3,JAM2,291,153,&SAttr,(UBYTE *)"Text",NULL,
- 1,2,JAM2,299,135,&SAttr,(UBYTE *)"ein",NULL
- };
-
- static struct NewMenu newM1[] = {
- NM_TITLE,(UBYTE *)"Projekt",NULL,0,0,NULL,
- NM_ITEM,(UBYTE *)"About",(UBYTE *)"A",0,0,NULL,
- NM_ITEM,NM_BARLABEL,NULL,0,0,NULL,
- NM_ITEM,(UBYTE *)"Load",(UBYTE *)"L",0,0,NULL,
- NM_ITEM,(UBYTE *)"Save",(UBYTE *)"S",0,0,NULL,
- NM_ITEM,NM_BARLABEL,NULL,0,0,NULL,
- NM_ITEM,(UBYTE *)"Quit",(UBYTE *)"Q",0,0,NULL,
- NM_TITLE,(UBYTE *)"Buffer",NULL,0,0,NULL,
- NM_ITEM,(UBYTE *)"Cut",(UBYTE *)"C",0,0,NULL,
- NM_ITEM,(UBYTE *)"Paste",(UBYTE *)"P",0,0,NULL,
- NM_ITEM,(UBYTE *)"Copy",(UBYTE *)"O",0,0,NULL,
- NM_TITLE,(UBYTE *)"Settings",NULL,0,0,NULL,
- NM_ITEM,(UBYTE *)"Special",NULL,0,0,NULL,
- NM_SUB,(UBYTE *)"Betatester Info",NULL,MENUTOGGLE|CHECKIT|ITEMENABLED,0,NULL,
- NM_SUB,NM_BARLABEL,NULL,0,0,NULL,
- NM_SUB,(UBYTE *)"Extendet Features",NULL,MENUTOGGLE|CHECKIT,0,NULL,
- NM_ITEM,(UBYTE *)"Save Icons",NULL,MENUTOGGLE|CHECKIT|CHECKED,0,NULL,
- NM_ITEM,(UBYTE *)"Use ENV:",NULL,MENUTOGGLE|CHECKIT|CHECKED,0,NULL,
- NM_ITEM,(UBYTE *)"Fast Ram",NULL,MENUTOGGLE|CHECKIT,0,NULL,
- NM_ITEM,NM_BARLABEL,NULL,0,0,NULL,
- NM_ITEM,(UBYTE *)"Asl Requster",NULL,CHECKIT|CHECKED,0,NULL,
- NM_ITEM,(UBYTE *)"OS 3.x",NULL,CHECKIT,0,NULL,
- NM_TITLE,(UBYTE *)"Extendet Menu",NULL,NM_MENUDISABLED,0,NULL,
- NM_ITEM,(UBYTE *)"New 1",NULL,0,0,NULL,
- NM_ITEM,(UBYTE *)"New 2",NULL,0,0,NULL,
- NM_ITEM,NM_BARLABEL,NULL,0,0,NULL,
- NM_ITEM,(UBYTE *)"New 3",NULL,0,0,NULL,
- NM_SUB,(UBYTE *)"New 3_1",NULL,0,0,NULL,
- NM_SUB,(UBYTE *)"New 3_2",NULL,0,0,NULL,
- NM_END,NULL,NULL,0,0,NULL};
-
- static WORD Bevel1[] = {
- 7,101,179,27,
- 329,68,55,95,
- 7,68,179,30,
- 7,132,179,31,
- 364,210,264,29,
- 213,13,171,53,
- 7,210,345,29,
- 7,165,240,43,
- 7,13,203,53,
- 188,68,139,95,
- 250,165,378,43,
- 387,13,241,150
- };
-
- static Tag BevelTags1[] = {
- GT_VisualInfo,NULL,
- TAG_DONE,
- GT_VisualInfo,NULL,
- TAG_DONE,
- GT_VisualInfo,NULL,
- TAG_DONE,
- GT_VisualInfo,NULL,
- TAG_DONE,
- GT_VisualInfo,NULL,
- TAG_DONE,
- GT_VisualInfo,NULL,
- TAG_DONE,
- GT_VisualInfo,NULL,
- TAG_DONE,
- GT_VisualInfo,NULL,
- TAG_DONE,
- GT_VisualInfo,NULL,
- TAG_DONE,
- GT_VisualInfo,NULL,
- TAG_DONE,
- GT_VisualInfo,NULL,
- TAG_DONE,
- GT_VisualInfo,NULL,
- TAG_DONE
- };
-
- static Tag WTags1[] = {
- WA_CustomScreen,NULL,
- WA_Gadgets,NULL,
- WA_Left,0,
- WA_Top,0,
- WA_Width,0,
- WA_Height,0,
- WA_MinWidth,633,
- WA_MinHeight,243,
- WA_MaxWidth,633,
- WA_MaxHeight,243,
- WA_Title,(ULONG)"Gadget Test Fenster",
- WA_IDCMP,BUTTONIDCMP|CHECKBOXIDCMP|INTEGERIDCMP|LISTVIEWIDCMP|MXIDCMP|NUMBERIDCMP|CYCLEIDCMP|PALETTEIDCMP|SCROLLERIDCMP|SLIDERIDCMP|STRINGIDCMP|TEXTIDCMP|IDCMP_NEWSIZE|IDCMP_CLOSEWINDOW,
- WA_Flags,WFLG_DRAGBAR|WFLG_DEPTHGADGET|WFLG_CLOSEGADGET|WFLG_ACTIVATE,
- waNewLookMenu,TRUE,
- TAG_DONE,NULL};
-
- BOOL AddNode(struct List *LVList, char *Strg)
- {
- char *NewStr;
- struct Node *TempNode;
-
- TempNode=AllocVec(sizeof(struct Node),MEMF_PUBLIC|MEMF_CLEAR);
- if (TempNode==NULL) return (FALSE);
- AddTail(LVList,TempNode);
- NewStr=AllocVec(strlen(Strg)+1,MEMF_PUBLIC|MEMF_CLEAR);
- if (NewStr==NULL) return (FALSE);
- TempNode->ln_Name = NewStr;
- strcpy(NewStr,Strg);
- return (TRUE);
- }
-
- int CalcXValue(int number)
- {
- return ((FontXSize*number+4)/8);
- }
-
- int CalcYValue(int number)
- {
- return ((FontYSize*number+4)/8);
- }
-
- void CalcFont(int Width,int Height)
- {
- OffsetY = 0;
- FontXSize = Screen->RastPort.Font->tf_XSize;
- FontYSize = Screen->RastPort.Font->tf_YSize;
- SAttr.ta_Name = Screen->RastPort.Font->tf_Message.mn_Node.ln_Name;
- SAttr.ta_YSize = FontYSize;
- if ((Width>0) && (Height>0)) {
- if ((CalcXValue(Width) > Screen->Width) || (CalcYValue(Height) > Screen->Height)) {
- OffsetY = FontYSize-8;
- SAttr.ta_Name = (STRPTR)"topaz.font";
- SAttr.ta_YSize = 8;
- FontXSize = 8;
- FontYSize = 8;
- }
- }
- }
-
- int CenterX(int width)
- {
- struct Rectangle rect;
- int l,w;
- ULONG ID;
-
- ID = GetVPModeID(&Screen->ViewPort);
- QueryOverscan(ID,&rect,OSCAN_TEXT);
- l = -Screen->LeftEdge;
- w = rect.MaxX-rect.MinX+1;
- return ((w-width)/2+l);
- }
-
- int CenterY(int height)
- {
- struct Rectangle rect;
- int t,h;
- ULONG ID;
-
- ID = GetVPModeID(&Screen->ViewPort);
- QueryOverscan(ID,&rect,OSCAN_TEXT);
- t = -Screen->TopEdge;
- h = rect.MaxY-rect.MinY+1;
- return ((h-height)/2+t);
- }
-
- void RefreshProc00(void)
- {
- int i;
- int left,top,width,height;
- struct IntuiText TempIText;
-
- TagCount=0;
- for (i=0;i<12;i++) {
- BevelTags0[TagCount+1]=(ULONG)Vi;
- left = CalcXValue(Bevel0[i*4]);
- top = CalcYValue(Bevel0[i*4+1])+OffsetY;
- width = CalcXValue(Bevel0[i*4+2]);
- height = CalcYValue(Bevel0[i*4+3]);
- DrawBevelBoxA(W[0]->RPort,left,top,width,height,(struct TagItem*)&BevelTags0[TagCount]);
- while (BevelTags0[TagCount]) TagCount+=2;
- TagCount++;
- }
-
- for (i=0;i<4;i++) {
- TempIText=IText0[i];
- TempIText.LeftEdge = CalcXValue(TempIText.LeftEdge);
- TempIText.TopEdge = CalcYValue(TempIText.TopEdge)+OffsetY;
- PrintIText(W[0]->RPort,&TempIText,0,0);
- }
- }
-
- void CloseProc00Mask(void)
- {
- int i;
- struct Node *TempNode;
-
- if (W[0]) {
- CloseWindow(W[0]);
- W[0]=NULL;
- }
- if (Men) {
- ClearMenuStrip(W[0]);
- FreeMenus(Men);
- Men=NULL;
- }
- if (congad[0]) {
- FreeGadgets(congad[0]);
- congad[0]=NULL;
- }
- for (i=0;i<2;i++) {
- TempNode=RemHead(&Liste[i]);
- while (TempNode) {
- if(TempNode->ln_Name) FreeVec(TempNode->ln_Name);
- FreeVec(TempNode);
- TempNode=RemHead(&Liste[i]);
- }
- }
- if (WFont[0]) {
- CloseFont(WFont[0]);
- WFont[0]=NULL;
- }
- }
-
- struct Window *InitProc00Mask(struct TagItem *UserTags){
- int i;
- struct NewGadget TempGadget;
- struct TagItem *MainList, *UserList, *TempItem;
-
-
- if (W[0]) return (NULL);
- NewList(&Liste[0]);
- NewList(&Liste[1]);
-
- if (!AddNode(&Liste[0],"Mode: Hires Lace")) {CloseProc00Mask(); return (NULL); }
- if (!AddNode(&Liste[0],"Auflösung: 800x600")) {CloseProc00Mask(); return (NULL); }
- if (!AddNode(&Liste[0],"Hori. Frq: 81 Hz")) {CloseProc00Mask(); return (NULL); }
- if (!AddNode(&Liste[0],"Vert. Frq: 57 kHz")) {CloseProc00Mask(); return (NULL); }
- if (!AddNode(&Liste[0]," ")) {CloseProc00Mask(); return (NULL); }
- if (!AddNode(&Liste[0],"Special: Nicht ziehbar")) {CloseProc00Mask(); return (NULL); }
- if (!AddNode(&Liste[0]," Kein Genlock")) {CloseProc00Mask(); return (NULL); }
- if (!AddNode(&Liste[0]," WB Like")) {CloseProc00Mask(); return (NULL); }
-
- if (!AddNode(&Liste[1],"DOMINO:1280x1024")) {CloseProc00Mask(); return (NULL); }
- if (!AddNode(&Liste[1],"DOMINO:1024x768")) {CloseProc00Mask(); return (NULL); }
- if (!AddNode(&Liste[1],"DOMINO:800x600")) {CloseProc00Mask(); return (NULL); }
- if (!AddNode(&Liste[1],"DOMINO:640x480")) {CloseProc00Mask(); return (NULL); }
- if (!AddNode(&Liste[1],"PAL:Hires")) {CloseProc00Mask(); return (NULL); }
- if (!AddNode(&Liste[1],"PAL:Hires Lace")) {CloseProc00Mask(); return (NULL); }
- if (!AddNode(&Liste[1],"PAL:Superhires")) {CloseProc00Mask(); return (NULL); }
- if (!AddNode(&Liste[1],"PAL:Superhires Lace")) {CloseProc00Mask(); return (NULL); }
-
- WinLeft = 41;
- WinTop = 120;
- CalcFont(633,243);
- WinWidth = CalcXValue(633);
- WinHeight = CalcYValue(243)+OffsetY;
- if (WinLeft + WinWidth > Screen->Width)
- WinLeft = Screen->Width - WinWidth;
- if (WinTop + WinHeight > Screen->Height)
- WinTop = Screen->Height - WinHeight;
- if (!(gad=CreateContext(&congad[0]))) { CloseProc00Mask(); return (NULL); }
- TagCount=0;
- for (i=0;i<28;i++) {
- TempGadget=NewG0[i];
- TempGadget.ng_VisualInfo = Vi;
- TempGadget.ng_LeftEdge = CalcXValue(TempGadget.ng_LeftEdge);
- TempGadget.ng_TopEdge = CalcYValue(TempGadget.ng_TopEdge)+OffsetY;
- TempGadget.ng_Width = CalcXValue(TempGadget.ng_Width);
- TempGadget.ng_Height = CalcYValue(TempGadget.ng_Height);
- G0[i]=gad=CreateGadgetA(Kinds0[i],gad,&TempGadget,(struct TagItem*)&Tags0[TagCount]);
- if (!gad) {
- CloseProc00Mask(); return (NULL);
- }
- if (Kinds0[i]==BUTTON_KIND) {
- if (TempGadget.ng_UserData)
- gad->Activation |= GACT_TOGGLESELECT;
- if (TempGadget.ng_UserData>(APTR)1)
- gad->Flags |= GFLG_SELECTED;
- }
- while (Tags0[TagCount]) TagCount+=2;
- TagCount++;
- }
-
- WTags0[1]=(ULONG)Screen;
- WTags0[3]=(ULONG)congad[0];
- WTags0[5]=CenterX(WinWidth);
- WTags0[7]=CenterY(WinHeight);
- WTags0[9]=WinWidth;
- WTags0[11]=WinHeight;
- if (!(MainList=CloneTagItems((struct TagItem*)&WTags0[0]))) {
- CloseProc00Mask(); return (NULL);
- }
- if (!(UserList=CloneTagItems(UserTags))) {
- FreeTagItems(MainList);
- CloseProc00Mask(); return (NULL);
- }
- FilterTagChanges(UserList,MainList,TAGFILTER_NOT);
- TempItem=MainList;
- while (TempItem->ti_Tag) TempItem++;
- TempItem->ti_Tag = TAG_MORE;
- TempItem->ti_Data = (ULONG)UserList;
- W[0]=OpenWindowTagList(NULL,MainList);
- FreeTagItems(MainList);
- FreeTagItems(UserList);
- if (W[0]) {
- GT_RefreshWindow(W[0],NULL);
- Men=CreateMenus(&newM0[0],TAG_DONE);
- if (LayoutMenus(Men,Vi,gtNewLookMenu,TRUE,TAG_DONE)==FALSE) {CloseProc00Mask(); return (NULL); }
- if (SetMenuStrip(W[0],Men)==FALSE) {CloseProc00Mask(); return (NULL);}
- RefreshProc00();
- return (W[0]);
- }
- else
- return (NULL);
- }
-
- struct Gadget *GetProc00GPtr(int Nummer)
- {
- if ((Nummer>=0) && (Nummer<=-1))
- return (G0[Nummer]);
- else
- return (NULL);
- }
-
- void RefreshProc01(void)
- {
- int i;
- int left,top,width,height;
- struct IntuiText TempIText;
-
- TagCount=0;
- for (i=0;i<12;i++) {
- BevelTags1[TagCount+1]=(ULONG)Vi;
- left = CalcXValue(Bevel1[i*4]);
- top = CalcYValue(Bevel1[i*4+1])+OffsetY;
- width = CalcXValue(Bevel1[i*4+2]);
- height = CalcYValue(Bevel1[i*4+3]);
- DrawBevelBoxA(W[1]->RPort,left,top,width,height,(struct TagItem*)&BevelTags1[TagCount]);
- while (BevelTags1[TagCount]) TagCount+=2;
- TagCount++;
- }
-
- for (i=0;i<4;i++) {
- TempIText=IText1[i];
- TempIText.LeftEdge = CalcXValue(TempIText.LeftEdge);
- TempIText.TopEdge = CalcYValue(TempIText.TopEdge)+OffsetY;
- PrintIText(W[1]->RPort,&TempIText,0,0);
- }
- }
-
- void CloseProc01Mask(void)
- {
- int i;
- struct Node *TempNode;
-
- if (W[1]) {
- CloseWindow(W[1]);
- W[1]=NULL;
- }
- if (Menu00) {
- ClearMenuStrip(W[1]);
- FreeMenus(Menu00);
- Menu00=NULL;
- }
- if (congad[1]) {
- FreeGadgets(congad[1]);
- congad[1]=NULL;
- }
- for (i=0;i<2;i++) {
- TempNode=RemHead(&ListViewList00[i]);
- while (TempNode) {
- if(TempNode->ln_Name) FreeVec(TempNode->ln_Name);
- FreeVec(TempNode);
- TempNode=RemHead(&ListViewList00[i]);
- }
- }
- if (WFont[1]) {
- CloseFont(WFont[1]);
- WFont[1]=NULL;
- }
- }
-
- struct Window *InitProc01Mask(struct TagItem *UserTags){
- int i;
- struct NewGadget TempGadget;
- struct TagItem *MainList, *UserList, *TempItem;
-
-
- if (W[1]) return (NULL);
- NewList(&ListViewList00[0]);
- NewList(&ListViewList00[1]);
-
- if (!AddNode(&ListViewList00[0],"Mode: Hires Lace")) {CloseProc01Mask(); return (NULL); }
- if (!AddNode(&ListViewList00[0],"Auflösung: 800x600")) {CloseProc01Mask(); return (NULL); }
- if (!AddNode(&ListViewList00[0],"Hori. Frq: 81 Hz")) {CloseProc01Mask(); return (NULL); }
- if (!AddNode(&ListViewList00[0],"Vert. Frq: 57 kHz")) {CloseProc01Mask(); return (NULL); }
- if (!AddNode(&ListViewList00[0]," ")) {CloseProc01Mask(); return (NULL); }
- if (!AddNode(&ListViewList00[0],"Special: Nicht ziehbar")) {CloseProc01Mask(); return (NULL); }
- if (!AddNode(&ListViewList00[0]," Kein Genlock")) {CloseProc01Mask(); return (NULL); }
- if (!AddNode(&ListViewList00[0]," WB Like")) {CloseProc01Mask(); return (NULL); }
-
- if (!AddNode(&ListViewList00[1],"DOMINO:1280x1024")) {CloseProc01Mask(); return (NULL); }
- if (!AddNode(&ListViewList00[1],"DOMINO:1024x768")) {CloseProc01Mask(); return (NULL); }
- if (!AddNode(&ListViewList00[1],"DOMINO:800x600")) {CloseProc01Mask(); return (NULL); }
- if (!AddNode(&ListViewList00[1],"DOMINO:640x480")) {CloseProc01Mask(); return (NULL); }
- if (!AddNode(&ListViewList00[1],"PAL:Hires")) {CloseProc01Mask(); return (NULL); }
- if (!AddNode(&ListViewList00[1],"PAL:Hires Lace")) {CloseProc01Mask(); return (NULL); }
- if (!AddNode(&ListViewList00[1],"PAL:Superhires")) {CloseProc01Mask(); return (NULL); }
- if (!AddNode(&ListViewList00[1],"PAL:Superhires Lace")) {CloseProc01Mask(); return (NULL); }
-
- WinLeft = 41;
- WinTop = 120;
- CalcFont(633,243);
- WinWidth = CalcXValue(633);
- WinHeight = CalcYValue(243)+OffsetY;
- if (WinLeft + WinWidth > Screen->Width)
- WinLeft = Screen->Width - WinWidth;
- if (WinTop + WinHeight > Screen->Height)
- WinTop = Screen->Height - WinHeight;
- if (!(gad=CreateContext(&congad[1]))) { CloseProc01Mask(); return (NULL); }
- TagCount=0;
- for (i=0;i<28;i++) {
- TempGadget=NewG1[i];
- TempGadget.ng_VisualInfo = Vi;
- TempGadget.ng_LeftEdge = CalcXValue(TempGadget.ng_LeftEdge);
- TempGadget.ng_TopEdge = CalcYValue(TempGadget.ng_TopEdge)+OffsetY;
- TempGadget.ng_Width = CalcXValue(TempGadget.ng_Width);
- TempGadget.ng_Height = CalcYValue(TempGadget.ng_Height);
- GPtrs00[i]=gad=CreateGadgetA(Kinds1[i],gad,&TempGadget,(struct TagItem*)&Tags1[TagCount]);
- if (!gad) {
- CloseProc01Mask(); return (NULL);
- }
- if (Kinds1[i]==BUTTON_KIND) {
- if (TempGadget.ng_UserData)
- gad->Activation |= GACT_TOGGLESELECT;
- if (TempGadget.ng_UserData>(APTR)1)
- gad->Flags |= GFLG_SELECTED;
- }
- while (Tags1[TagCount]) TagCount+=2;
- TagCount++;
- }
-
- WTags1[1]=(ULONG)Screen;
- WTags1[3]=(ULONG)congad[1];
- WTags1[5]=CenterX(WinWidth);
- WTags1[7]=CenterY(WinHeight);
- WTags1[9]=WinWidth;
- WTags1[11]=WinHeight;
- if (!(MainList=CloneTagItems((struct TagItem*)&WTags1[0]))) {
- CloseProc01Mask(); return (NULL);
- }
- if (!(UserList=CloneTagItems(UserTags))) {
- FreeTagItems(MainList);
- CloseProc01Mask(); return (NULL);
- }
- FilterTagChanges(UserList,MainList,TAGFILTER_NOT);
- TempItem=MainList;
- while (TempItem->ti_Tag) TempItem++;
- TempItem->ti_Tag = TAG_MORE;
- TempItem->ti_Data = (ULONG)UserList;
- W[1]=OpenWindowTagList(NULL,MainList);
- FreeTagItems(MainList);
- FreeTagItems(UserList);
- if (W[1]) {
- GT_RefreshWindow(W[1],NULL);
- Menu00=CreateMenus(&newM1[0],TAG_DONE);
- if (LayoutMenus(Menu00,Vi,gtNewLookMenu,TRUE,TAG_DONE)==FALSE) {CloseProc01Mask(); return (NULL); }
- if (SetMenuStrip(W[1],Menu00)==FALSE) {CloseProc01Mask(); return (NULL);}
- RefreshProc01();
- return (W[1]);
- }
- else
- return (NULL);
- }
-
- struct Gadget *GetProc01GPtr(int Nummer)
- {
- if ((Nummer>=0) && (Nummer<=-1))
- return (GPtrs00[Nummer]);
- else
- return (NULL);
- }
-
- void FreeUnbekannt(void)
- {
- CloseProc00Mask();
- CloseProc01Mask();
- if (Vi) {
- FreeVisualInfo(Vi);
- Vi=NULL;
- }
- if (OwnScreen) {
- if (Screen) {
- CloseScreen(Screen);
- }
- }
- Screen=NULL;
- if (SFont) {
- CloseFont(SFont);
- SFont=NULL;
- }
- }
-
- BOOL InitUnbekannt(struct Screen *S,struct TagItem *UserTags)
- {
- struct TagItem *MainList, *UserList, *TempItem;
-
- if (Screen) return (FALSE);
- if (!S) {
- OwnScreen=TRUE;
- SFont=OpenDiskFont(&SAttr);
- if (!SFont) return (FALSE);
- if (!(MainList=CloneTagItems((struct TagItem*)&STags[0]))) {
- FreeUnbekannt(); return (FALSE);
- }
- if (!(UserList=CloneTagItems(UserTags))) {
- FreeTagItems(MainList);
- FreeUnbekannt(); return (FALSE);
- }
- FilterTagChanges(UserList,MainList,TAGFILTER_NOT);
- TempItem=MainList;
- while (TempItem->ti_Tag) TempItem++;
- TempItem->ti_Tag = TAG_MORE;
- TempItem->ti_Data = (ULONG)UserList;
- Screen=OpenScreenTagList(NULL,MainList);
- FreeTagItems(MainList);
- FreeTagItems(UserList);
- if(!Screen) {
- FreeUnbekannt();
- return (FALSE);
- }
- }
- else {
- OwnScreen = FALSE;
- Screen=S;
- }
- CalcFont(0,0);
- Vi=GetVisualInfo(Screen,NULL);
- if (!Vi) {
- FreeUnbekannt();
- return (FALSE);
- } else
- return (TRUE);
- }
-